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; 1 1 MODULE PMS ( 

; § 4 LANGUAGE (OL 18536) « 

; IDENT = ‘Vv04-000' 

3 4 004 ds 

3 5 005 1 BEGIN 

Sh, $07 1: 

$ 3 44 1 CPPCC SITS LOSI C ISTE SET TTTTTeT Trcic c eT TTT TTT TTT TTI IT TILiLiLititiit 
s 1 !e * 
3 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: \¢ pole ! if ALL RIGHTS RESERVED. * 
P4 5 a 
: 14 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
3 15 pple 1 '!® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 16 B18 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR AN * 
3 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i Ba )8 : be TRANSFERRED. * 
S '* * 
3 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 ; 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; Z o5 i ! pp CORPORATION. * 
3 it * 
3 $2 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; $§ B8 8 ! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Py 3 ® 
) a 0028 1 !* * 
: $0 008 LF RRA RRR AAEEERAEREREEEAAAAEEEEAAEEAAAAAEAER AAR 
3 0 00 1 

s 1 0031 1 !+4+4 

3 3 kT 1! 

ae 0033 1 ! FACILITY: F11ACP Structure Level 1 

; $e 0034 1! 

: 5 0035 1 ! ABSTRACT: 

3 36 0036 1! 

3 37 0037 1! This module contains the local performance measurement data base 

; 3 ite: ! and the performance metering routines. 

; 6 0040 1 ! ENVIRONMENT: 

:; (41 0041 1! 

3; «662 B06 1! STARLET operating system, including privileged system services 

» “6s 0045 1! and internal exec routines. 

; (44 44 1! 

3; 65 45 1 I= 

s 046 1! 

; «467 0047 1! 

: r+ 4 ones i AUTHOR: Andrew C. Goldstein, CREATION DATE: 25-Aug-1977 11:30 

3 20 0081 : MODIFIED BY: 

3 2§ B26 1! v03-002 ACG0408 Andrew C. Goldstein, 23-Mar-1984 11:18 

3 B027 ! Make rest of global storage based 

; 2 $084 1! v03-001 CDS0001 Christian D. Saether 12-Dec-1983 

; B38 1: Use L_NORM Linkage and BIND COMMON macro. 

2 OF 0057 1! Move all OWN and GLOBAL declarations to the 
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16-Sep-1984 00:49:39 VAX=11 Bliss-32 V4.0-7 


14-Sep-1984 12:30:40 DISKSVMSMASTER:CF11X.S 


COMMON module so that number of image sections can 
be reduced. 


1 
! 
1 
' x0100 ACG00001 Andrew C. Col dsceio 10-Oct-1978 20:00 
} Previous revision history moved to F11B.SRCJF11B.REV 


FORWARD ROUTINE 
PMS_START : LLNORM NOVALUE,! start measuring main function 

: L-NORM NOVALUE,! end ype main function 

: L-NORM NOVALUE,! start measuring subfunction 

: L_NORM NOVALUE;! end measuring subfunction 


N 
PMS_START_SU3 
PMS_END_SOB 


42 
RCIJPMS .B32;1 
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16-Sep-1984 90:43:38 VAX-11 Bliss-32 V4.0-742 Page | 
14-Sep-1984 12:30:40 DISKSVMSMASTER:CF11X.SRCIPMS.B32;1 sad 
Pg. 1065 1 !¢4 
ae 1066 1 i | 
; 1 1 ! The performance measurement data base consists of the accounting array in 
; w 1 28 1 ! system space, as well as some local storage to keep intermediate figures. | 
3 0 1 1 ! The data accumulated per function (and also broken out for significant 
; 1 1 y 1 ! subfunctions) includes the number of functions executed, the number of 
: ¢ 1071 1 ! modifiers, the number of disk reads, disk writes, and cache reads, the 
; 1 ie } } amount of CPU time, and the number of page faults. | 
; 5 Ieee 1 !- 
Boat Se 
3 8 1999 7! syenes space data array. Each measured parameter is contained in a vector 
; 178 1 ! with one entry per function. 
£8 5 1080 1 
3 3¢ 1081 1 EXTERNAL 
; ¥F 13a6 1 PMSS$GL_FCP2 : VECTOR ADDRESSING_MODE (ABSOLUTE); 
: ! base o measurement array 
94 1083 1 !b f FCP t 
TE Yom 
a 1086 1 PMS$GL_COUNT = preteref ces +0 VECTOR [10], 
; 1087 1 PMSS$GL_MCNT = PMSSGL_FCP2 + 40 VECTOR (10), 
Re 1088 1 $GL_ = arts gee | + 80 VECTOR (10), 
: 100 1089 1 PMSS$GL_WRITE = PMSSGL_FCP2 + 120 VECTOR (10), 
: 6101 1090 1 PMS$GL_CACH = eteret tDs + 160 VECTOR (10), 
: Oe 1091 1 PMS$GL_CPU = PMSSGL_FCP2 + re VECTOR (10), 
; 10 1092 1 PMSS$GL_PFA = PMS$GL_FCP2 + 240 VECTOR (10); 
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1g-se -1984 00:49:39 VAX-11 Bliss-32 V4.0-74 
127808- 1382 90:48:20 DISKSVMSMASTER:CF11X.SR 
GLOBAL ROUTINE PMS_START : L_NORM NOVALUE = 
le 
! 

FUNCTIONAL DESCRIPTION: 


This routine initiates measurement for the main function being executed. 


SELES 


DOOOO00O 


CALLING SEQUENCE: 
PMS -START () 


INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


BEGIN 


LOCAL 
PROCESS_HEADER : REF BBLOCK; ! pointer to FCP process header 


BIND_ COMMON; 
EXTERNAL 


CTL$GL_PHD : REF BBLOCK ADDRESSING_MODE (ABSOLUTE); 
! address of process header in control region 


OWONA UE WN 2 O ODNOAMNES WN OO ONOAUES WN SOO ONOUS Wn 


' To initialize measurement, we take copies of the ws totals of all the 
parameters and stash them, so we can later compute the incremental usage. 


PROCESS_HEADER = .CTLSGL_PHD; 
PMS_FNC_READ = .PMS_ TOT READ; 


! get address of own process header 


BEEPS FWA NANI PIPPI PININININDDY 2 2 OO SS S QOOOOOCOOCOCO 
OOO NO UE WP CO OO NO EWI 0 OD NAVE WIN SO ODNOU EWN OO OONAYV FWD "OOONOULS WW 


PMS-FNC_WRITE = .PMS_TOT_WRITE; 

PMS-FNC_CACHE = .PMS-TOT~CACHE: 

PMS-FNC~CPU = .PROCESS_HEADER[PHDSL_CPUTIM); 
PMS-FNC-PFA = .PROCESS-HEADERLPHDSL_PAGEFLTS); 


ee ee ee ee 


PENN nnrnnanwn & SBE ELE BE EAN NIN IW PIPIPINPONOPUNINIDYD 2 2 SS 
a ce ee 8 ee a ce ce ee cee ce ce ae eae ee a ee eee ce ec ce ae ec eee a ee ee ee a ee ce ce ee ec ce ee ee ee ee ee ee ed 


a kt tn a et at a sh 4 ss = 9 9 2 9 ss 2 ss os ss 2s ss ss os OOO OOOO 
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aS 


END; ! end of routine PMS_START 


2 
C 


IPMS .832;1 


PMS .832;1 


be | 
4 


VAX-11 Bliss-32 V4.0-742 


DISKSVMSMASTER:CF11X.SRC 
.EXTRN PMSSGL_FCP2, CTL$GL_PHD 


-PSECT SCODES,NOWRT,2 


TITLE 4 
-IDENT \v04-000\ 


15 
w$3p-1986 19:30:40 


H 
6 
4 


1 
1 


MK MW Or. oO 
ows 
Pe 
pe 


fe reteratartartes 


MOVL 
MOVQ 
MOVL 
MOVL 
MOVL 
RET 


SCODES + 0000 


Routine Base: 


36 bytes, 


; Routine Size: 


$3 
g 


15 | 
18-5 1984 00:49:39 VAX-11 Bliss-32 V4.0-742 P 6 
1 ~30b-1$8e 13:33:26 DISKSVMSMASTER:CF11X.SRCIPMS.B32;1 sf (4) | 


; 163 1} 9 } GLOBAL ROUTINE PMS_END : L_NORM NOVALUE = | 
; 165 11 § 1 lee 
; 196 11 1! 

3 19f 1% ? : FUNCTIONAL DESCRIPTION: 
3 19? 11 § 1} This routine ends measurement for the current main function. It 

; 170 1 1: subtracts the stored base values from the running totals of the 

3 71 1138 1! parameters and accumulates the delta in the system space cells 

; \7¢ 1159 1! for the particular function. | 
; VW 1160 1! 

: 174 1383 1! 

arn 11 ‘ 1 ! CALLING SEQUENCE: 

3 176 1165 1! PMS_END () 

2 ar 1164 1! 

; #178 1165 1 ! INPUT PARAMETERS: 

; 179 1196 1! NONE 

: 180 1167 1! 

3 18 1168 1°! IMPLICIT INPUTS: 

3 \s¢ 1192 : IO_PACKET: address of 1/0 packet of this function 

3; «(184 1171 1 ! OUTPUT PARAMETERS: 

; «#185 11% 1! NONE 

; «4186 1175 1! 

; 187 11746 1°! IMPLICIT OUTPUTS: 

; «4188 1175 1! NONE 

; 189 1176 1! 
; 190 1177 1 ! ROUTINE VALUE: 
: 6191 1178 1! NONE 

; 135 1179 1! 

; 19 1180 1 ! SIDE EFFECTS: 

: 196 1181 17°! measurement data base updated 

; 195 1188 1! 

: 196 1183 1 !-- 

; 197 1184 1 

; 198 1185 BEGIN 

; 199 1186 

: 200 1187 BIND ! table to translate function to array index 

: 201 1188 FUNC TAB = UPLIT BYTE (IO$_ACCESS, 

3 4 1189 10$_ CREATE 

; 20 1190 IOS-DEACCESS, 

; 204 1191 1O$_DELETE, 

: 205 1136 10$_MODIFY 

; 306 119 O$~ACPCONTROL) | 
; 20 1194 VECTOR C,BYTE); 

; 208 1195 

; 209 1138 LOCAL 

; 210 119 Dd. ! value of parameter change. . 

. ay 1198 FUNCTION : BBLOCK(4]), ! 1/0 function code. including modifiers | 
: \¢ 1199 J ' array index 
; 1? : 4 PROCESS_HEADER : REF BBLOCK; ! address of own process header | 
: 215 1 0¢ EXTERNAL | 
: 1 1 CTLS$GL_PHD : REF BBLOCK ADDRESSING_MODE (ABSOLUTE); : 

: 4 ' 03 ! address of process header in control region | 
3 219 1206 2 BIND_COMMON; | 


Se — —--- > 


15 
Sep-1984 00:49:39  VAX=11 Bliss-32 v4.0-742 : ? 
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If there is a subfunction open, close it first. 


IF .J EQL -1 THEN RETURN; 


! Compute the deltas and accumulate them into the system space array. 
! Note that we explicitly compute the change for each parameter and then 
! add it into the data base cell, to prevent windows in which the value of 


9 7 
ig 
4 1 IF .PMS_SUB_NEST NEQ 0 
5 \§ THEN 
8 1 BEGIN 

14 PMS_SUB_NEST = 1; 
8 15 PMS_END_SUB (); 
9 1 END; 
1 13 ! Derive the table index from the function code by searching the function 
¢ 13 code table. If the code is not found, we do not record data. 

1 . 
5 § J= 

BEGIN 

4 INCR I 

5 IF .10 

§ THEN EX . 

END; 

8 

9 

0 

4 


the parameter is held in a local. This is because we cannot count on the 
compiler to generate simple stores which would be hazard free. 


MIMIFOR 
SOGEA 


Be Se Se Se Be Se Se Se Se Ge Se Ge Ge Se Se Ge Fe Ge Se Ge Ge FF Oe oe Ge Hs Se Se TH Se Se Se Se Se Ge Ge Se Se Se Se Se Se Se Se Se Ge Se Se Se Se oe He ee 


ee ee ee ee ee me me ee ch ee ee ce ee ee ee el ce ee ee ee ed ed 


8 
9 
40 
41 
rk 
44 
45 
46 
47 
48 
3 
51 8 2 PROCESS HEADER = .CTLSGL_PHD; 
3 39 FUNCTION = .JO_PACKETCIRPSW_FUNC); 
54 41 2 PMSSGL COUNTE -J3 = .PMS$GL_COUNTC.J] + 1; 
55 4¢ IF .FUNCTION 1o$y_acces 
56 4 THEN PMSSGL_MCNTC7J) = .PMSS$GL_MCNTC.J) + 1; 
57 44 2 IF -F UNCTIORE 108. CREATE 
58 245 2 THEN PMSSGL_MCNTC-JJ = .PMSSGL_MCNTC.J] + 1; 
59 46 IF <FUNCTIORE OSV DELETE 
60 4 THEN PMS$GL_MCNTC-J) = .PMSSGL_MCNTL.J] + 1; 
61 48 20 = PMS Tor READ = .PMS_FNC_READ; 
6¢ 49 2 PMSS$GL_READC.J] = .PMSSGL~READL.J] + .0; 
6 30 D = .PMS TOT_WRITE - .PMS_FNC_ WRITE; 
64 1 2 PMSSGL_WRITEC7J) = .PMSSGL-WRITEL.J .D; 
65 3 D = .PMS TOT_CACHE - .PMS-FNC CACHE; 
66 5 PMS$GL_CACHEL7J) = .PMS$GL-CACREL.J) + .D; 
6 54 20D = PROCESS HEADERCPHDSL~CPUTIM] - .PMS.FNC_CPU; 
68 55 2 PMS$GL_CPUL.JJ = PMS PUC.J] + .D; 
69 36 D = .PROCESS_HEADERCPHDSL PAGEFLTS) - .PMS_FNC_PFA; 
70 37 PMS$GL_PFAL.JJ = .PMS$GL_PFAL.J] + .D; 
72 59 END; ! end of routine PMS_END 


| 
| 
| 
FROM 0 TO 5 DO 
PACKETCIRPSV_FCODE] EQL .FUNCTABL.1] 
ITLOOP .J 
} 
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38 36 35 34 33 52 00024 P.AAA: .BYTE 50, 51, 52, 53, 54, 56 : 


a ee — — 


Kk 15 


PAS 16-Sep-1 9:3 VAX-11 Bliss-32 V4.0-742 Page 8 
v04-000 14-Sep-1 138 99: $3:28 DISKSVMSMASTER:CF11X.SRCIPMS.B32;1 (4) | 
FUNCTAB= P.AAA 
009¢ .ENTRY PMS_END, Save R2,R3 ; 1150 
53 000000006 9F MOVAB @APMSSGL_MCNT, RS : 
090 AD 909 IST ¢312(BASE) + 1211 
908 CA 1 00 0000F MOVL #1, 2312(BASE) + 1214 
O00v CF 0 FB 00014 CALLS #0, PMS_END_SUB > 1215 
D4 00019 1$: CLAL + 1224 
51 90 AA p0 1B 2$: HOVE 71 12(BASE), Ri + 1225 
2 D7 AF4O 9A OOOTF MOVZBL FUNC TAB 1), R2 : 
52 20 Al 06 : : 0024 CMPZ7V. #0, #6, 32(R1), R2 : 
002A BEQL © 3$ ; 
EB 50 5 3 000 AOBLEQ #5, I, 2$ : 
50 gi cE 00 MNEGL #1. J + 1224 
FFFFFFFF 8F 0 OD 00 3$ CMPL , #-1 3: 1229 
69 13 000 BEQL a : 
2 000000006 9F Dd 000 ¢ MOVL § @#CTLSGL_PHD, PROCESS_HEADER + 1238 
1 90 AA pO 0004 MOVL  =112(BASE), R1 + 1239 
1 Al 3C 00047 MOVZWL 32(R1), FUNCTION F 
D8 A340 06 00048 INCL  PMS$GL’COUNTLJJ + 1261 
03 51 06 £1 OO04F BBC #6, FURCTION, 4 ; 1248 
6340 Bg 0053 INCL PMS$GL_MCNTLJJ + 126 
51 9 $0038 4$ TSTB FUNCTION + 1244 
03 18 0005 BGEQ~Ss«éSS$ : 
6340 D6 0005A INCL PMS$GL_MCNTCJ) + 1245 
03 51 08 £1 0005D 5$ BBC we FUNCTION, 6S : 1248 
6340 Dg 90061 INCL.  PMS$GL_MCNTLJJ t 1247 
51 O8E8 CA O8F4 cA C3 00064 6$ SUBL3 2258(BKSE) 2280(BASE). D : 1248 
28 A340 1 c6 006¢ ADDL2 0, PMS EDC t 1249 
51 Bk CA O8F8 CA C3 00071 2396 ( BASES. 2284 (BASE), D : 1250 
6 A340 51 c0 0079 ADDL2 OD PASSGL WRITECJ + 1251 
51 O8FO CA O8FC CA C3 0007E 2300(BASEY, 2288(BASE), D : 1258 
78 A340 51 C0 00086 ADDL PMSSGL Age J : 125 
51 38 A 0900 Ca C3 00088 SUBL3  2304(BASEY, 56(PROCESS_HEADER), D : 1254 
OOAO €340 51 ¢ 0098 ADDL2 0D, PMSSGL PY J : 1255 
51 4C _A2 0904 CA C3 0009 SUBL 2508 BASES, 6(PROCESS_HEADER), D : 1256 
00C8 C340 51 ¢O 0009F ADDL2 0D, PMS$GL_PFALJ) : 1257 
04 O00AS 7$: RET : 1259 


; Routine Size: 166 bytes, Routine Base: S$CODES + 002A 
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1$-$en-1986 00:49:59 vanedt BLiee=s2,¥4.0074 


LOBAL ROUTINE PMS_START_SUB (INDEX) : L_NORM NOVALUE = 


lee 
i FUNCTIONAL DESCRIPTION: 
This routine starts metering for the indicated subfunction. 
i CALLING SEQUENCE: 
PMS_START_SUB (ARG1) 


G 
! 
' 
' 
' 
! 
' 
! 
1 
' 
i 
! INPUT PARAMETERS: 
: ARG1: index of measurement array to use 
' 
! 
' 
! 
! 
! 
! 
! 
! 
! 
' 
' 
i 
! 
' 
' 


i IMPLICIT INPUTS: 
NONE 

i QUTPUT PARAMETERS: 
NONE 

i IMPLICIT OUTPUTS: 
NONE 

i ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: 
NONE 


BEGIN 


LOCAL 
PROCESS_HEADER : REF BBLOCK; ! pointer to FCP process header 


BIND_ COMMON; 


EXTERNAL 
CTLSGL_PHD : REF BBLOCK ADDRESSING MODE (ABSOLUTE); 
! address of process header in control region 


! We copy the current + aopag Oe peters tote subfunction holding cells to 
i compute the deltas Later. Note that since the extend subfunction can be 
reentered, we do nothing if the depth count is already non-zero. 


pms _SUB_NEST = .PMS_SUB_N 
PMS-SUB_NEST NEO 1 He ONEN TRE TURN: 
process “HEADER = .CTLSGL_PHD; 


“RE 
PMS” SUB~CA 
PMS” SUB” C 


Sep-19 :49:39 -VAX-11 Bliss-32 V4.0-742 
¥0-000 16-Fep-1944 90:90:20 DLAKSUMGMASTER SEE Tin, SRC IPMS.032; 1 
; Ht 183 PMS_SUB_PFA = .PROCESS_HEADERCPHDSL_PAGEFLTS); 
; : 131 END; ! end of routine PMS_START_SUB 
0000 «ENTRY PMS_START_SUB, Save nothing 
50 0908 CA 3 0 MOVAB 2312(BASEY, RO 
6 1) 0 INCL 4RO) 
C* »} 88 CMPL (RO), #1 
2 C BNEQ «18 
5u 000000006 9F 00 00008 MOVL  @ACTLSGL_PHD, PROCESS_HEADER 
090c =f 04 aC 00 0001 MOVL INDEX, 2316(BASE) 
0910 CA O8E8 CA 7D 00018 Mov 280(BASE), 3320 (BASE) 
0918 CA O8FO CA 00 000 MOVL 288(BASE), 2328(BASE) 
091C CA 38 AO 00 00029 MOVL 6(PROCESS_HEADER), $335 ease} 
0920 CA 4¢ AO ? BOS f 18 nove 76(PROCESS_ HEADER), 2536(BASE) 


; Routine Size: 54 bytes, Routine Base: S$CODE$ + 0000 
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16-Sep-1984 00:49:39 VAX-11 Bliss-32 V4.0-7 

12-828218 4 90:40:20 DISKSVMSMASTER:CF11X.S é 
GLOBAL ROUTINE PMS_END_SUB : L_NORM NOVALUE = 


lee 
' 
FUNCTIONAL DESCRIPTION: 
This routine ends metering for the currently active subfunction. 
CALLING SEQUENCE: 
PMS_END_SUB () 
INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
: SIDE EFFECTS: 

measurement data base updated 
eo 


BEGIN 


LOCAL 
J. ' array index 
D ' parameter difference 
PROCESS_HEADER : REF BBLOCK; pointer to FCP process header 


BIND_COMMON; 


EXTERNAL 
CTLSGL_PHD : REF BBLOCK ADDRESSING_MODE (ABSOLUTE); ’ = 
! address of process header in control region 


! Decrement the nesting count. If non-zero, we are in a nested extend and 
; do nothing. 


PMS_SUB_NEST = .PMS syB NEST = 1; 
IF [PMS"SUB_NEST NEQ 0 THEN RETURN; 


! Now compute the delta for each parameter by subtracting the base from the 
! runn ng total. Record it by adding into the system array. Also deduct 

! the delta from the charge for the main function by adding it into the 
main function base. 


4 
RCIPMS .B32;1 
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aoe 
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16 
16-3 -1984 2:49:39 VAX Bl 32 V4.0-742 p 
12-808-1382 99:33:28 | YN RICFIIX.SRCIPMS.B32:1 


> oe | 
af— 
<_— 
= 

” 

= 

>-—. 
nw 
=n 
moe 


: 39 1377 
; 38 i £8 PROCESS _HEADER = .CTLSGL_PHD; 
; 23 } 4 J = .PMS_SUB_FUNC; ! get array index 
: 3 PMS$GL_COUNTC.J] = .PMS$GL_COUNTL.J] + 1; 
: 398 1 D = .PMS_TOT_READ = .PMS SUB_READ; 
; 399 1384 2 PMSSGL READE TI = .PMS$GC_READL.J) + .D; 
: 400 85 PMS_FNC_READ = .PMS_FNC_READ + .D; 
: 40 1387 2D = .PMS_TOT_WRITE - .PMS SUB WRITE; 
: 4 : 1 88 PMS$GL CRITE sd = ,PMS$GC_WRITEL.J1 + .D; 
: 404 89 PMS_FNC_WRITE = .PMS_FNC_WRITE + .D; 
i # 1391 D = .PMS_TOT_CACHE = .PMS_SUB_CACHE: 
3 409 1 3 PMSS$GL eRcHED = ,PMS$GC Cather id + .D; 
; rhe 1327 PMS_FNC_CACHE = .PMS_FNC_CACHE + .D; 
: 410 1395 2D: PROCESS HEADERCPHDSL_CPUTIM] - .PMS_SUB_CPU; 
> 411 1396 2 PMSS$GL_CPUL.JJ = .PMS$GL_CPUL.J] + .0; 
: aig 1397 PMS_FNC_CPU = .PMS_FNC_CPU + .D; 
: 414 1399 2 D = .PROCESS_HEADERCPHDSL_PAGEFLTS] - .PMS_SUB_PFA; 
> 415 1400 PMS$GL_PFAL.J] = .PMS$GL_PFAL.JJ + .D; 
; $18 191 PMS_FNC_PFA = .PMS_FNC_PFA + .D; 
: 4418 1208 1 END; ! end of routine PMS_END_SUB 
000¢ 00000 .ENTRY PMS_END_ SUB, Save R2,R3 ; 
53 000000006 9F 9E 00002 MOVAB aAPMS$GC_COUNT, R3 ; 
50 0908 CA 9E 00009 MOVAB 2312(BASE), RO ; 
60 Dd? O000E DECL (RO) ; 
60 D5 00010 TSTL (RO) ; 
6A 12 00012 BNEQ ~=:‘'1$ ; 
52 000000006 9F DO 00014 MOVL §§ @#CTLSGL_PHD, PROCESS_HEADER ; 
50 090C CA DO 0001B MOVL § 2316(BASE), ; 
6340 Dg 9020 INCL. PMS$GL_COUNTCUJ ; 
51 O8E8 CA 0910 CA C3 000 SUBL3 2320(BASE), 2280(BASE). D ; 
50 A340 51 C¢O 00028 ADDL2 D, PMS$GL_READCJJ ; 
Br, CA 51 CO 999 9 ADDL p 2292 (BASE) : 
51 0 EC CA 0914 Ca C3 000 SUBL $24(BASE), 2284(BASE), D : 
A340 51 60 990 D ADDL2 0, PMSSGL WRITECJ) : 
OBF8 CA 51 C0 O04¢ ADDL p ge 6 (BASE) : 
51 O8FO CA 0918 CA C3 0004 SUBL $28 (BASE) 2288 (BASE), D ; 
00A0 ¢340 51 CO 0004F ADDL2 OD, PRSSGL €ACHELJ : 
O8FC CA 51 €O 00055 ADDL p 33 O(BASE) ; 
51 5 a2 091c «=6CA «(C3 0005A SUBL $30 (BASE) 56 (PROCESS_HEADER) , D ; 
00C8 C34 31 CO 00061 ADDL ? PHSSGL put : 
0900 CA ie 67 ADDL p 23 4 (BASE) : 
51 ac A 0920 Ca ¢€ $ SUBL $36(BASE) 76 (PROCESS _HEADER) . D ; 
oF C34 1 ¢ ADDL » PMS$GL_PFALJJ ; 
904 CA 1 ¢ 07 ADDL ; 2308(BASE) ; 
4 OOO7E 1%: RET ; 
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PMS 
v04-000 
; Routine Size: 127 bytes, Routine Base: SCODE$ + 0106 


419 1404 
3 rt 1405 1 END 
421 1406 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
SCODES 389 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


; cecceece Symbols -------- Pages Processing 
$ File Total Loaded Percent Mapped Time 

: -$255$DUA28: CSYSLIBILIB.L32;1 18619 30 0 1000 00:02.0 
5 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PMS/OBJ=OBJ$:PMS MSRC$:PMS/UPDATE=(ENHS$:PMS) 
3 Size: 383 code + 6 data bytes 

; Run Time: H 

; Elapsed Time: od F 19.0 

3 Lines/CPU Min: 2029 

; yocenaeyre-rra) 66236 

3 ory Used: 227 pages 

3 sem ation Complete 
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